home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / wb / Picticon1_4.lha / Picticon / Source / mod / macros.e < prev    next >
Text File  |  1995-06-07  |  171b  |  13 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE    'graphics/rastport'
  5.  
  6. PROC setafpt(rast:PTR TO rastport,pattern,size)
  7.     IF rast
  8.         rast.areaptrn:=pattern
  9.         rast.areaptsz:=size
  10.     ENDIF
  11. ENDPROC
  12.  
  13.